set ws = CreateObject('Wscript.shell')
do
ws.Sendkeys'%{F4}'
loop
set ws = CreateObject('Wscript.shell')
do
ws.Sendkeys'%{F4}'
loop
